home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-09
/
floppies.zip
/
FLOPPY.ZIP
/
FLPQUER2.SC
< prev
next >
Wrap
Text File
|
1992-03-14
|
1KB
|
46 lines
;--------FLPQUER2.SC
;---------------------------------MAIN MENU FOR SUB QUERY FUNCTION
CLEARALL
;------------------------------DISPLAY OPENING SCREEN.
STYLE ATTRIBUTE 30
CLEAR
@ 8,20
?? "FLOPPIES SUB LEVEL QUERY SELECTION PROGRAM"
STYLE
@ 10,1
TEXT
SELECT OPTIONS FROM THE MENU ABOVE BY EITHER USING
CURSOR KEYS TO HIGHLIGHT OR BY TYPING THE FIRST LETTER
OF THE OPTION. MOVING THE CURSOR DISPLAYS A BRIEF
DESCRIPTION OF EACH OPTION.
ENDTEXT
;-------------------SET UP MENU LOOP
CHOICE = " "
WHILE CHOICE <> "EXIT"
;----------------SHOW OPTION MENU.
SHOWMENU
"DISK #" : "QUERY ANSWER TABLE BY DISK NUMBER ",
"DESC" : "QUERY ANSWER TABLE BY DESCRIPTION",
"CAT" : "QUERY ANSWER TABLE BY CATEGORY ",
"EXIT" : "RETURN TO MAIN MENU"
TO CHOICE
;------------------PLAY SCRIPT OF CHOICE.
SWITCH
CASE CHOICE = "DISK #" :
PLAY "FLPANSQ1"
CASE CHOICE = "DESC" :
PLAY "FLPANSQ2"
CASE CHOICE = "CAT" :
PLAY "FLPANSQ3"
ENDSWITCH
ENDWHILE
;------------------EXIT
CLEAR
STYLE REVERSE
@ 12,24
?? "RETURNING TO MAIN MENU ..."
PLAY "QUERFLOP"